www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_saveinfo.asp

    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="admin_verify.asp" -->



<%
Response.Expires=-1
set cn1=server.CreateObject("ADODB.Connection")
set rs1=server.CreateObject("ADODB.Recordset")
CreateConn cn1,dbtype
rs1.open "SELECT TOP 1 name,faceid,email,qqid,msnid,homepage FROM supervisor",cn1,0,3
		
tname=server.htmlEncode(Request.Form("aname"))

tfaceid=Request.Form("aface")
if len(cstr(tfaceid))>3 then
	tfaceid=0
elseif isnumeric(tfaceid)=false or tfaceid="" then
	tfaceid=0
elseif clng(tfaceid)<0 or clng(tfaceid)>255 then
	tfaceid=0
else
	tfaceid=cbyte(tfaceid)
end if

temail=server.htmlEncode(Request.Form("aemail"))
tqqid=server.htmlEncode(Request.Form("aqqid"))
tmsnid=server.htmlEncode(Request.Form("amsnid"))
thomepage=server.htmlEncode(Request.Form("ahomepage"))

if isnumeric(tfaceid)=false then tfaceid="1"
temail=replace(temail," ","")
tqqid=replace(tqqid," ","")
tmsnid=replace(tmsnid," ","")
thomepage=replace(thomepage," ","")
if lcase(left(thomepage,7))<>"http://" and lcase(left(thomepage,6))<>"ftp://" and thomepage<>"" then thomepage="http://" & thomepage

rs1("name")=textfilter(tname,false)
rs1("faceid")=tfaceid
rs1("email")=textfilter(temail,true)
rs1("qqid")=textfilter(tqqid,false)
rs1("msnid")=textfilter(tmsnid,false)
rs1("homepage")=textfilter(thomepage,true)
rs1.Update
		
Response.Redirect "admin.asp"

rs1.Close
cn1.close
set rs1=nothing
set cn1=nothing

%>